PWOOP
ALLPASS 0 62.7;
P2 62.7/END;
DUM1 INVIS  0.1 60.2;
P2 NU/21.3/7.7/7.71/7.88/7.86*;
P3 "QUAD(DSIG RSIG BDOP CHA CHB CHC CHD S1 INSP)"/END;
DUM2 INVIS  0.12 60.2;
P2 REP;
P3 "COMP(RSIG,TEMP)"/END;
WOOP1 0 60.2;
P2 NU/4/-5/4/-.4*/P3 600 ALL/P4 750 ALL/P5 6 ALL;
P6 1 ALL/P7 .05 ALL/P8 -1 ALL/P9 "BDOP" ALL;
P10 "CHA" ALL/P11 "CHB" ALL/P12 "CHC" ALL/P13 "CHD" ALL;
P14 0 ALL/END;  SUBL ALL/END;
WOOP2 6 60.2;
P2 NU/4/-3.9*;
P8 1/P9 "DOP"/P10 "CHD"/P11 "CHA"/P12 "CHB"/P13 "CHC"/END;
WOOP3 14.9 60.2;
P2 4 ALL/END;
WOOP4 21.2 60.2/END;
WOOP5 29.0 60.2/END;
WOOP6 36.8 60.2/END;
INSERT 3,1,1;
100 2 1 100 0 100 0 .5 240 .5 300 180 250 0 4
SPACE;100 2 1 100 0 100 0 .5 120 .5 60 180 250 0 4
COMP(TEMP,DSIG);FOR I←0 STEP 1 UNTIL 511 DO IF TEMP(I)<0 THEN TEMP(I)←0;
*
INSERT 3,2,1;
100 2 1 100 0 100 0 .5 240 .5 300 180 250 0 3
SPACE;100 2 1 100 0 100 0 .5 120 .5 60 180 250 0 3
COMP(TEMP,DSIG);FOR I←0 STEP 1 UNTIL 511 DO IF TEMP(I)<0 THEN TEMP(I)←0;
*
INSERT 3,3,1;
100 2 1 100 0 100 0 .5 240 .5 300 180 250 0 2
SPACE;100 2 1 100 0 100 0 .5 120 .5 60 180 250 0 2
COMP(TEMP,DSIG);FOR I←0 STEP 1 UNTIL 511 DO IF TEMP(I)<0 THEN TEMP(I)←0;
*
INSERT 3,4,1;
100 2 1 50 0 50 0 .5 270 .5 270 50 100 0 2
SPACE;100 2 1 50 0 50 0 .5 90 .5 90 50 100 0 2
COMP(TEMP,DSIG);FOR I←0 STEP 1 UNTIL 511 DO IF TEMP(I)<0 THEN TEMP(I)←0;
*
INSERT 3,5,1;
100 2 1 50 0 50 0 .5 270 .5 270 50 100 0 1
SPACE;100 2 1 50 0 50 0 .5 90 .5 90 50 100 0 1
COMP(TEMP,DSIG);FOR I←0 STEP 1 UNTIL 511 DO IF TEMP(I)<0 THEN TEMP(I)←0;
*
INSERT 3,6,1;
100 2 1 50 0 50 0 .5 270 .5 270 50 100 0 .5
SPACE;100 2 1 50 0 50 0 .5 90 .5 90 50 100 0 .5
COMP(TEMP,DSIG);FOR I←0 STEP 1 UNTIL 511 DO IF TEMP(I)<0 THEN TEMP(I)←0;
*
RUN;